home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / calcultr / wchill10.zip / WCHILL.C < prev    next >
C/C++ Source or Header  |  1994-11-06  |  2KB  |  65 lines
  1. /***                               WINDCHILL                            ***/
  2. /*                              For TC compiler                          */
  3. /*                                                                       */
  4. /*                                  M\Cooper                             */
  5. /*                          3425 Chestnut Ridge Rd.                      */
  6. /*                           Grantsville, MD 21536                       */
  7. /*                         email: thegrendel@aol.com                     */
  8. /*                                                                       */
  9. /*                               Public Domain                           */
  10. /*************************************************************************/
  11.  
  12. #include <stdio.h>
  13. #include <conio.h>
  14. #include <math.h>
  15.  
  16. int calculate_windchill( int, int );
  17.  
  18. void main()
  19.  
  20. {
  21.    int temperature,
  22.        windspeed,
  23.        windchill;
  24.  
  25.        clrscr();
  26.  
  27.        printf( "Enter the temperature (F\370)  " );
  28.  
  29.        scanf( "%d",&temperature );
  30.  
  31.        printf( "\nEnter the wind speed (mph)  " );
  32.  
  33.        scanf( "%d",&windspeed );
  34.  
  35.  
  36.        windchill = calculate_windchill( temperature, windspeed );
  37.  
  38.        printf("\n\nThe windchill is %d F\370.",windchill);
  39. }
  40.  
  41. int calculate_windchill (int temp, int wind_vel)
  42.  
  43. {
  44.    double cf;
  45.    int c_temp;
  46.  
  47.  
  48.       cf = .0817 * ( 3.71 * sqrt( (double)wind_vel ) + 5.81
  49.            - .25* (double)wind_vel ) * ( (double)temp - 91.4 ) + 91.4; 
  50.  
  51.  
  52.  
  53.       if (cf >= 0)
  54.           cf += .5 ;
  55.       else
  56.           cf -= .5 ;
  57.  
  58.  
  59.       c_temp = cf ;
  60.  
  61.       return ( c_temp );
  62. }
  63.  
  64.  
  65.